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EZ AZ UTOLSÓ KÖTET 


Egy Kötettel ismét beljebb jutottunk a Commodore 16 
rejtelmeibe. Természetesen messze vagyunk még a céltól 
- már ha egyetértünk abban, hogy célunk a gép 
megismerése. Hadd oszlassunk el egy talán felmerülő 
tévhitet: ennek a harmadik kötetnek a végén sem lesz 
belőlünk tanársegéd 3 BASIC nyelv egyetemi tanszékén. 


Arra  azanban alighanem jó ez a Könyv , hogy a 
, K 46 
Kíváncsizságunkat fölkeltse és ébren tartsa. A 


számítógep pedig majd elvégzi a többit. 


a, le HARE .ASC ÉS CHRE. A KÉT IKERTESTYÉR 


Tudjuk már régáta. hogy a Cornnodure 16-un a színeknek 
Kádszárnuk van. özonban nemcsak ezeknek, hanem az összes 
tetűnek , számjegymnek , jelnek iz. 
Az An tetű Kádszárma ES, az £ jelé 38; a teljes 
listát a Könyv végén találiuk meg. 

Ahagy a telefonnál. itt iz ké 
van: ha z Kédszáímot ismeri az ember. 

s 


féle "tudakozá" 
s a 
Kíván i. 3kkor a következőt kell begépelnie: 


Karakterre 
? CHREX( Mo 
ahal az NM helvére a kódszámot kell beírni. Tehát: 


? CHRAK 1912 


mire a RETURNre a gép a "S" Karakter kiírásával válaszol. 
Hz pedia visszafelé Kér-dezünk , tehát Aa 
vagyunk Kíváncsiszk., akkor a CHRH(MNM) helyett 

t Kel 


1 hazználni. Ha beírjuk a 


a RDEL "ALT 


z RETURN meanyarndíza gép a 75-özsz számot 
Írja Ki - ez a K betű káde vanígy 75-öt Ír ki 
:3kkor iz. ha azt rmunhdjiuk neki : TES JASEALS TE DB; rivel ez 
az utazítáz csak a sztringek Jdkzslslgátsáki vizsgálja, 


touvuítb mern. ÉPP erre épül tunk, amelyet Kiczit 


A CHRE táblázat nemcsak a karakterek kddszamát 
tartalmazza. hanem a többi billentvűfunkcióét is , tehát 
a színek megyáltoztatázának a cursor -mozgatásnak a 

/ , 


szamat. sztk. ztb. 


Édekez kKiz képernyőf-tüzijátékat rendezhetünk; 
ha azcösszes CHR$-funkciót felvonultató pradgramocskát 
lefuttatjuk: 


19 COLORB , 6. 2 

29 FOR Ms TŰ 255 

38 PRINT N.CHRS(N2 , 

4 FOR Js1 TŰ Z8:NEAT J 


59 HEXT N 
Jókora összevisszaság is "keletkezik olykor. de néha 
szabályos táblázattá alakul a dolog .- attúl függően. 
hogy az illető CHR$-nek éppen mi a funkcidja. 


Ha lefutott a. program;- listáztassuKk Ki. és 
utána írjuk ber 


? CHRX$( 142 


és RETURN. A 

Mi történt? A prograrn betűi mind kisbetűvé 
változtak, mintha együttesen lenyomtuk volna a C- és Aa 
SHIFT gombot. Úgy is van: a CHR$(14)-nek pontosan ez a 
feladata. Ha tehát azt akarjuKk, hogy egy PFrogramunkban 
a Képernyőfeliratok Kisbetűvel jelenjenek meg, valahova 
az elejére be Kell íÍrnunk: ? CHR$( 14). Ha pedig ismét 
nagybetűre akarunk váltani, akkor a CHR$( 1422-t Kell 
használnunk a programban. 

Mit Kéll tennünk, ha kédszárnot keresünk arra, 
hogy a cursor színe bíborra változzék (és nincs kéznél 
a táblázat sem)? Meg kell kérdezni a géptől, mert neki 
pontos leltára van. Írjuk be: 


7 ASE ETRLEAZB "3 


és RETURN. A gép válasza:156. 

Ezután gépeljük be: ? CHRH( 156), És a RERDY 
már bíbor színnel jelenik meg a képernyőn. Ha tehát egy 
szöveget bíborral. akarunk kiíratni. akkar egy újabb 
lehetőségünk van (az eldző az VOLT hagy magába a 
stringbe íÍrtuKk-be-azt a karaktert. amely Aa színváltást 
előidézte). Bárhol a programunkban használhatjuk € 
kódszámokat, a számítágép engedelmesen udgarehatja ezt a 
kódolt utasítást, 


El lehet játszani ezzel is: ha az ember a 


táblázatot jól elteszi szem előli, aztán mindenféle ? 
ASC És 7? CHRE kddokat gépel be, és megpróbálja 
kitalálni, hogy mi fog történni, ha megnyomja a 
RETURNT. 


Mi történik pFpéldául, ha azt Írjuk be: ? 
CHR:H( 1472 - És RETURN? Mindjárt Kiderül, mert a 
Következő prugramunknak ez az elzsd sora. 


A REM ASC-CHRÉ 

iú FRIMT CHR$(147) 

za LOLORB, 2.7 

39 FÜR J5149 TŰ 156 

48 FRINT CHRSKLJ) 

59 FÜR Iz65 TŰ 399 

ék FRIMT TABLEJLHRSK I 7; 
ra NEAT I 

ag NEXT J 

99 GOT 39 


Az 50 és a CHRES olyanuk, mint .egyrmás tükörképei — 
pontosan megfelelnek egymásnak. ? ASUC( CHRE3( 79) ) 
eredménye 7D, aminthogy ? CHR$(HASC( "F")) eredménye Fz 
Az F ds a 70 a számítógép számára szorosan összetartozó 


Nos, akkor rátérhetünk az igért játékra, amely 
azt vizsgálja, hogy hány B betűvel kezdődő hárombetűs 
szót ismerünk. (Ez egy nagyon egyszerű Kisz program, 
künnyen becsapható: csak azt vizsgálja. hogy  valdban 
B-vel kezdődik-e az INPUTban Kapott szó, és valóban 
háram betűből áll-e. Tehát ugyanazt a szót többször is 
elfogadja. és ésszefüggédstelen betűcsoportaokat is. ha 
B-uel kezdődnek. Hát persze, hiszen Különben az 
Érteimezd Szótár B betűs szócikkét kellett volna 
kijegyzetelnünk és betáplálnunk...2) 


19 PRINT CHR$(147) 

28 PRIMT"HAMY HAROMBETUS, B-VEL KEZDODO" 
25 PRIMT"SZOT ISMERSZ?":PRINT 

38 PRIHT "HA MEM TUDSZ TÖBBET, IRJ 8-T!" 
49 I5A 

59 INPUT"MOS" ; SZÖ$ 

68 IF ASC(SZO$)s4g THEH 128 

7A IF ASC(CSZO$IC366 THEM 199 


ra 


eg IF LEM(íS 


zül$o7zs THEM 188 


98 IzIt1:GOTT 38 


108 PRIHMHT 


i19 GOTO 

iz28 PRIHT 

17 EHD 
Itt iz egy csomó dol 
csupán: a 8390-as s 
rostnövény, a textil 


egy BASIC Kifejezés. 
szó rövidítése. Ez 
scstringekben találhat 
írja. Íme: 


sorban 


"Ez MEM Jű!" 


ja 


I: "SzŰT SORÜLTRL FEL." 


73 § 
uilágos, 
Ez merrt 


ag ismerdz 
LEM. 
ipari alapany 
"length" 

BASIC uk 


Karaktereke 


3. 


sz 


VAK s HM 


1ja 
Ki 


a megsz zarmo 


5 Kérésre 


it IMFUT A£ 
2A FRIMHT LEH(A£$? 


lehet 
maximális 


természetesen nern 
osszúzáfgú, 
feljebb 
9) Karakter 
ilven 
ez 


a 
kKépernyőzor , 
de hát Aa 

hosszúak 


a 


ez 


ma 


fi) 


is czak 
tehát 


mo ln 
Mm AH 


nerm oköz 


s 


m 


termé — 
3, 
szavakat 


A fenti 
átírható 

3 
ne 


Pragr ar 
így. hogy 
betűs 

B 
hanem €- 
okoz 


ne 
mrd j uk 
Da kövei Kez- 
uak , 
játékosnak... re — 
lehet 
jó Kisz 
Csináljuk 
feladat. 


tetszéz szerint 


tehát eadzszzen 
lehet belőle. 


SZ. a 


ria i 


Ü0 


zza HIRE "OLYASO AZ ADATOKAT!" 


Néhány nappal karábban már megpendítettük a vektorok És 
mátrixok témáját. moszt lászunk egy olyan programot , 
amely leltárt csinál egy osztályban található 
ceruzákról. 

Az osztály, ha mindenki a helyén ül, olyam , 
mint egy mátrix: hár am padsor , 0t-öt paddal, 
mindegyikben KÉt-két gyerek: 


tt KE ER 
t€EFPZR 
gt EXREK 


és némelyiknek több ceruzája is van, máscaknak meg egy 
h-t 


incs. 

Ha a valózágos helyzetet felírjuk, egy 
tetszetős mátrixot Kapunk, sorokba, oszlopokba 
rendezve. 

OSZLOPUK 
SOROK aj 1 2 3 3 bet 
a vé a a ze a 2 
1 2 £ a e 1 3 
e a aj i e nD B 
3 [zi 1 1 a kez o 
ag 2 1 3 d 1 1 a 


Meuezzük el a mátrixunkat így: CERUZA. Ha dimenzionálni 
akarjuk, Így határoljuk be: DIM CERUZA( 4, 52. hiszen ral 
sorunk ds 6 oszlopunk van, és az elsőnek B a száma. 

Az itt következő program ezekből az adatokból 
az izmert módon próbáÁlja kiszímítani a ceruzák számát. 
MÉZZÜK mea figyelmezer! 


s 


53 DIM CERUZAC4á, 54 
j 18 OSSZEM 
iízd FOR vag TO 5 
139 FOR ag TŰ 4 
143 OÜSSZSÜSSZHZERUZRE A s 9? 
1539 HEAT A 
168 HEAT v 
179 PRIHT ÖSSZ 


Ez a program összeadja a mátrix elemeinek értékét. a 
program végén az Össz változó megmondja, hogy az 
osztályban üszszesen hány ceruza var. 

Ha tudja. De hát honnan iz tudná: hiszen nem 
mondtuk meg neki. Ha így lefuttatijuk, Kiír egy nullát - 
a maga részéről ez minden, amit tud az üÜgyről. Nulla 
darab ceruzáról informáltuk, ne Kívánjunk tőle többet. 

AKi eléggé szem- 
füles, az észrevehette, 
hogy ennek az programnak a 
Közepén egy jókara heéza- 


got hagytunk a ki 2.§ gteaai 
számozásban: azért, hogy 
elhelyezhessük oda az 
adatbeolvaszsi progr ari- 
reszt. öz adatokat eddig 
mindia egyesdvel ado - 
gattuk be a programozás 
kKözberi , vagy az 
INPUTOKban; most  meglát- 
juk , hogyar lehet egy 


csokurban beadni a gépnek 
az üsszes adatot. 

Adatok angolul: 
DATA - ezt  nrern nehéz 
magyar anyanyelvűnek ser 
megtanulrmi. 


A programba külön szarban beírjuk 


a 
sor elején csak  enny Áll: DATA., és 
í 


adatokat a si a 
számítógépet egy alkalmas utasítással rát rjuk, hugy 
alvasza be ezeket. AZ alkalmaz utasítás ez? READ 
(ejtsd: ríd, magyarul: clvuaszas!) 

Az adatbeoluazás résszel éz E láv adatokkal 


a i 
sa z ; 
egyutt zs prugrarmurnk végső forrmnaja ez lesz: 


1 63 


i REM MATRIA-ORTFI 

5 DÍM CERUZACt4 30 

íg üsszzg 

zú FOR ve Tü 35 

aa FÜR Azü TŰ 4 

48 READ TERUZAÉK vh 

58 MEAT A 

bő HEXT Yv 

fő FÜR Azú TŰ 4 

s2 FÜR vrg TŰ 4 

239 PRIMT THECS2 CERLZACAL 7; 

100 MEAT v:PRIMT LERUZACA SI 

119 MEST az 

íz8 FOR vsA TŰ 53 

139 FÜR Azg TŰ 4 

148 ÜSSZSÜSSZHLERUZEK Av 

138 HEAT s 

160 NEAT Yv 

178 PRINT"AZ ÜSZTALYERH"OSSZ"TERUŰZRA VAM," 
zokni DATA 3.2.A.O.Z.B.1.R.1.1.A.B.151.3 
zi8 DRTA 2.2.2.B.1.B.1.B.3.1.2.4.B8.8.1 


Látnivalá. hogy több  FOR...IMNEKT ciklus-r  ágyazddik 
egymásba: az előbbi, csonka programban kettő, itt 
háromszor kettő. 

Az új ciklusok ta 20-astáAl a 6080-as sar ig2 
beclvassák a DATA sorok adatait, majd ki is Írják a 
képernyőre Cerrdi gündoskodik a 78-ii19g sor közötti 
programrész). ; 

A READ utasítás megkerezi a programban a DATA 
kezdetű sorokat, éz szorbarte . ahagy jönnek , 
"behelyettezíti az adatokat a megfelelő helvekre. 
(Vigyázni Kell a DATA sorok írásánál! az egyes adatok 
közé vesszőt Kell tenni, a soafok végére viszont nem 
szabad! Egy DATRA-sor, mint bármely más programsor a 
Corarrodore 18-on, 88 karakter hozszszú lehet.3 

A READ nem lehet meg DATA nélkül. Erre nézve 
bizonyára mindenki szerzeit rnár egy bizunyoas 
tapasztalatot. Elég egy vigyázatlan mozdulat, amikor a 
cursor a Képernyőn egy sorban Áll a READY üzenettel. 
amelyet 3 aép adott. Ha ilyenkor véletlenül megnyomjuk 
a RETURNt, a gép egy eddig megmagyarázhatatlannak  túnf 
üzenetet zsdott: OUT OF URATA ERROR. (blagyarul: "öhpimcs 
DATA" hiba.2 De hát miféle DATÁrá1 uan szó? A 


z k 


számítdaép a RERDY szót Így értelmezte: READ Y, vagyis 
olvasd be az Y-ra vonatkozó adatokat. Ilyet pedig nera 
taldáiít, ezért felelt hibaüzenettel... 


Ez később iz így lesz. ha véletlenül kevesebb 
DATA £11l rendelkezésre, mint amennyit Keres a program. 
Vigyázzunk hát. amikor DATAR-sorokat írunk , nehüugy 
adásai maradjunk a gépnek. , 

A programban egyébként többször is szerepelhet 
READ utasítás, és ha ezekhez Kevés adat tartozik, 
azokat üsszegyűjthetjük egyetlen DATA sorba, csak az a 
lényeg, hogy az adatak sorrendjére vigyázzunk. 

No hát, akkor olvassuk a DATÁKat. 


19 RERD Ka 
29 DATR 19 
39 PRIMTKA 


Itt iz Ügyelnűünk Kell a váltazdkra: a valós. az egész 
és a szöveges elkülönítendő, különben SYNTAK ERRORtT 
Kapunk a géptől. 

Mindezek ismeretében olvaszuk át még egyszer a 
ceruzák nyilvántartásáról szóÁló programot, ds játsszunk 
el azzal, hogy a DATA sorakban kicseréljük a számokat. 
majd megprdbáljuKk előre kitalálni, hogy a mátrixban hal 
fog jelentkezni az új érték! 


í1 sz 


péz HE E FELTÉTELEK; FELTÉTELEK ; a 


HA holnap nem kell korán kelni, ÉS este a család nem 
akar tévét nézni, AKKOR 8 őra után iz lehet gyakorolni 
a száímítdgépen. 

Kecsegtető kilátás; ráadásul olyan formában , 
hogy BAZIC programban is megfogalmazható. 

No persze, az IF...THEN szerkezet - de hát ott 
egy feltételről volt szó. itt meg kettő van! 

Sebaj: az ÉSnek angolul is van megfelelője, és 
a BASICben is: az, hogy AND. § mondat, amelyet az első 
bekezdézbemn  Írtunk, Így Írható fel magyar -BASIC 
öszvérnyelven: 

IF holnap nerm kell korán kelni, 

AND a család nem akar tévét nézni, 

THEN a dra után is letet gyakorolni a 
számítógépen. 

Ez persze ebben a formában még nem foglalható 
pFrograrnba . viszüunt júl szemlélteti, hogy a BASIC 
program egyszerre ttíbb feltételt is képes vizsgálni. AZ 
AND Kifejezés azt jelenti, hogy a Program csak akkor 
tér át az "igen" ágra. ha mindkét feltétel teljesül: ha 
tehát sern korán kelni nem kell holnap. szem a család nem 
akar. tévét nézni. Az "igen". Ág itt két "nem" szót 
tartalmazd feltételből Áll, de ugye ez nern téveszt meg 
senkit? 

az AM azonban még mindig nem az utolsd a 
számítógépes feltételes mód szavai közül: ott van még 
az OR iz. amely azt jelenti: VAGY ( nern ige, hanem 
kötőszé!). Wagyis eld lehet Írni a számítógépnek azt 
iz. hogy elda, ha a két — vagy több - feltétel közül az 
egyik teljesül! 

Eldször nézzük a magyar nyelvű példát, mert 
azért ez logikai feladat, mi meg inkább számítdadpes 
szakemberek vagyunk. 


IF holnap szombat lesz. 
OR holnap vasárnap lesz, 
THEN nem kell Korán kelni. 


Ha tehát bármelyik feltétel 
teljesül a kettő közül. akkor 
megnyílik az "igen" Aghoz vezető 

a THEN utáni 
PpPnek hatályba. 


Kapu zt 
utasítások 


roll") 
N 


bes (jt 
mM N 


IF ezik az esúv., 

OR erdős szél fúj, 

THEN nern rmegyűrnk 
kirándulni. 


Melyik itt az "igen" 4g? 
Az, ha elmegyünk Kirándulni, 
uagy az, ha mere? Az "igen" - 
mint tudjuk - mindig az az ág, 
amelyik a THEN után következik. 
tehít ebben a példában a  "nern" 


ágan megyünk kirándulni, és az 
n oz ú  .x 8A sz ak ag £ - 

igen" ágon nem. Ugye világos? 
AKKOrv menjünk tovább. lgvanis az ORt és az AfNDet Össze 
iz lehet kapcsolni... 


IF haolrap szornbat lesz, 

OR holnap vasárnap lesz, 

AND a család nern akarja nézni a tévét. 
THEN este 8 után iz lehet gyakorolni. 


Itt a három feltétel küzül kettőnek kell 
teljesülnies egyrészt ése hogy holrap szombat vagy 
vasárnap legyen , másré észt. hogy ne akarjanak tévézni. 

Ebben a példában a vizsgálat úgy folyik, hogy 
előszűür megnézzük: milyen nap lesz holnap. És ha zer 
szornbat, sem vazár nap o nern lesz. akkor a "nem" ágra 
Karyarodunk; szaz ezte nyolc után rmerri komputerezünk. 
Ebben az szettben mindegy. hogy 3 család akar-e tévét 
nézni, vsgy nern. 

igy :áznunk kell persze. hugy a feltételeket a 
megfelelő sorrendben fogalmazzuk meg. mert számos 
vűlasztázi lehetőség nyílik. És Könnyen mellékvágányra 
futhatunk . 


1 


IF a család nem akarja nézni a tévét, 
AMD holnap szombat lesz, 
OR holnap vasárnap lesz, 
THEN este 8 után is lehet gyakorolni. 


Itt elsf/ pillantásra semmi különbzég nincs, csak Aa 
sarrend változott. Pedig ebben az esetben a család 
tévénézési szándékát csak az elsdf estére vizsgáljuk, a 
másodikra nemi! Így  tévez következtetésre juthatunk, 
aminek az lesz a vége. hogy kidobnak a tévékészülék 
elői. 

Ebben a példáíban a félreértést úgy lehet 
eloszlatni. hogy az együtt vizsgálandó feltételeket 
zárójelbe foglaljuk: IF a család nerm akarja nézni a. 
tévét, AND (holnap szombat lesz. OR holnap vasárnap 
lesz), THEN sattbbi. Ilyenkor a zárójel hatására a 
vizsgálat Kiterjed a másik feltételre is. 

Gondoljuk végig ezt a példát, és utána is 
gordoljuk végig ilyen szempontból minden egyes 
programunkban az IF... OR... ANNO... THEN szerkezeteket, 
mer: t eldforduihat, hogy ezen múlik egy programunk 
sikere vagy kudarca. 

De elég ezekből a földhözragadt pdidákból, 
térjünk rá a BASIC nyelvre, És nézzük "meg ott a 
feltételes módot. 


IF A£7 AND 87-19 THEN GNTO 1994 
Ez a programzor csak akkor küldi a programot a 
sorra, ha A eErtéke kisebb 7-nél, GO pedig 19-cel 
egyenlő. Ha bármelyik feltétel nem teljesül, a program 
a következő sorra fut rá. nem a i199d-ra., 


IF B508$z-"K" OR BO£E-"L" THEN END 


Itt a BA$ lehet K iz meg íg iz . a Erouram mindkét 
esetben befejezddik. 


IF (A-19 AND BO$-"K") OR B9£-"L" THEN GOTO 198 
Ekkor a program két esetben ugrik a 1939-as sorra? ha a 
zárójelben foglalt feitételek együtt teljesülnek, vagy 


ha a zárdjelen kívüli feltétel teljesül. EkKkKor tehát 
elda; ha BO$R-"L", 


125 


IF A-19 AND ( BOo£$-"K" OR B93$3-"L"? THEN GOTOÚ 199 


Itt egyrészt A-nak 19-cel Kell egyenlőnek lennie, 
másrészt a zárójelben foglalt feltételek valamelyikének 
Kell teljesülnie. Tehát a program akkor ugrik a 1099-as 
sorra. hz 66-19 és Bú$-"K" vagy ha A-i9 és B93-"L"., 


No mozt., eldadódhat olyan eset is. hagy csak 
akkor akarjuk a programat a 1880-as sorra ugratni, ha A 
rem egyenlő 19-cel. minden más ezetben igen. EZ például 


így fogalmazható megi: 


200 IF A-19 THEN GOTO 220 
2eín. GOTO 19898 
2209 PRINT "A ERTEKE -"., A 


Ezt persze egyszerűbben is megírhatjuk: 


299 IF A 41; 139 THEN GOTO 1909 
21Ra PRINT "A ERTEKE -".A 


A feltételekre  vonatkozd logikai kifejezések sorába 
tartozik még a NOT (azaz: "mera" utasítás 18 e amely 
lényegében ugyanazt jelenti, mint a beszélt nyelvben. 
IF NÖT - ez annyit jelent: "ha nem igaz. MEG aan És 
utána következhetnek a feltételek. A legegyszerűbb 
példa: NOT (Az19) - ez ugyanaz, mintha azt mondanánk: 
AK 219. 

Ugyanaz , de mégsem egészen, hiszen pár 
Karakterrel többet kellett aépelnünk hozzá. Tehát ez a 
NÖT csak arra jód. hogy megnehezítse a dolgunkat? 
Korántsem. 


IF NOT (A-B OR AX(B) THEN GOTO 199 
Ez ezetben csak akkora ugrunk a 1909-es sorra, ha 6§-B. 
A következő példában mikar ugrik a Progr: arft 


10900-ra? 


IF NOT (CXKA AND D?-A) THEN GOTOIAAR 


2 e 


stb aa HEE MENJ A..., DE TÉRJ IS VISSZA! 


Gépeljük be 


ü R 


az alábbi programot! 


EM MIND ERTELMES? 

LOLOR4,.16.3 :COLORB,16.5 
PRINT"Ci" : REM CLERR/HOME S ÉTRL-41 
RA$l195"EN" 

H$(zZiz "EZT" 

Al. 3 iz" MOMHOTAM" 

H$(d sz "MAR" 


7A ASC(SI2z"EGYSZEKR" 
sa HEl6os "TALAN" 
99 H$(73z"MNEKED" 
198 PRINT:PRIMNT" TUDÜK 7 OLYAM SZOT." 
118 FRINT" AHELYEKBEOL; HA MONDATOKAT" 
i28 PRINT" KESZIÍITESZ,. MINDEM MOMDORTON" 
1238 PRINT" ERTELMES LESZ." 
149 PRINT" HA HEM HISZED. JARJ UTANHAI!" 
158 PRINT:FRIHMHT 
i68 PRINT"IRD IDE A SZAMOKRT 1-TÜL 7-IG" 
178 FRIMT" TETSZÜLEGES SORRENDBEN!" 
1928 FRINT:PRIHT 
159 FÜR I51 TŰ 7:IHPUT Ef(I2:MEAT I 
28 FRIMT:FRIHT 
z18 FÜR Izi TŰ 7 
zzz FRIHT" ":A3$(B(I25; 
238 HEAT I:FRIHT"." 
246 GOTO 150 
z65 FRINT:PRIHT 
Ebtern a programban minden elem ismerős. az utalsáú 


vesszőia; leaföüljebb a 7209-as sorban tűnhet egy kicsit 
gyanúsnak e Kifejezés: ASR(RBKI)). Ez, ha nem is teljesen 


17 


idegem gondolat, mégis szokatlan lehet az els d 
pillantísra. Gondoljuk tehát végig. 

Itt az A$ indexet (a zárdjelben utána álló 
számot) egy másik vektorelemrel határoztuk meg. Ez 
teljesen szabályos; a változók indexében ( azaz "a 
zárójelen belül) bármilyen kifejezés 1 itató az a 
lényeg, hogy az értéke egész szám legyen, éz ne essen 
KÍvÜl a törnmbünk határain. A R(I) esetfhen ez a két 
feltd[tel teljesül is. 

Ha elijiátszottunk a prnar aramal És elarmultunk 


azon, heavy milven határtalanul ruaalrmas Aa magyar 
szírend (hiszen e7t á hét szót összesen 
1LKÖKRZBKÜTEKEVT-STL 9 -fillakáíppen lehet más És más 
sorrendbe rakni), srzáÁsal ha már eldogáf ismerjük a 


proaram wgróecísít. Írjuk át a kKövetvaerívénnrent 


B PFM MIMI ERTFIMELT 

19 TOLOR4 2? : COLORG. 1556 

28 PRINT" Ow": REM CLOAK HNME,CTELA43 

38 A$(1a7"EN" 

áa A$(ZIZzVEZT" 

39 A$(35z"MŰNDTAM" 

én A$C4 Iz" MAR" 

78 A$(SIzZ"EGYSZER" 

29 A$(AsS "TALAN" 

98 A$(7sz"MEKED" 

ia FOSUB 164 

ii G05UB 258 

129 PRINT:FOKRK Isi TŰ 7 

138 PRINT" "A$CPéT2o; 

idd MNEAT I:PZINTV." 

138 FOTO 119 

168 REM KIHiV6S 

173 PRIHT:PRINT:TEIHT" TUDOK 7 GL/AM SzoT." 
189 PRINT" FMELYEKEÜL:. HA MÓHDATUÜKRT" 
198 PRIHT" . KESZITESZ; MIHPCN MDPNERTOR" 
299 FPEIGT" ERTELMIS LESZ." 

218 TRIHAT" HA MEM HISZED. JARI LTRAAI" 
zző RETURN 

238 REM VALASZTETT SZAMEGR, 

zá9 FEIHT FRAT 

258 PRINT"IRD IDE fh SZAMOXST 1-TOL 7-IM" 
260 PRINT" TITSZILESES SORStLMHNRENI!" 
270 FOR Izi TŰ 7:IMHPUT Bf(I5:MEXAT I 

250 KETURH 


ís 


Itt mér 


GOSUR. ( 
gozubnak mordjáKk.) 
ÜSEZE, [ein] 
szavakból. n 
iaazífbAl 


4 an 


AZ angüal 


a 
rutáiri 


mert B 


ap 


prearar amar ez 


Frograrmbar, uzayv 


Praograrnba is 


u/itazata, amely 


Lényeges tul 


a 
jelentése: 
tíuesztendf 


A 


ritörn? 
üsa7e 
GOSUB 
tulajdonképpen 

BETH - 


hazanlít a 


hL 
lényeges 


haz, egy 

Külüönbsesggel] : za 
úg s Le 

szubrutimnm védem a 


pragr arr futáza 
att folytatódik, 


ahornnari a GÜüs B 
hatására e€eiug- 
[igira a ság c zrre ad 
Farancsaid a 
RETLIRN. Ha tehát 
A 1990-as sorban 
ez áLi: GOSUB 
ZAN: PRINT Agi 12, 


ds 


akármi 


legyen AZ a 
ha 
§ 


Hz ugvanab n a 
GOSLUBD utssítázt, 
a szuhrutinra iz. 
ada fordítja 


élügsüt tt. 


amel 


idensá 


ző 


Kiei 


újdonság: 


: zár ag 


anciig 


LME s 1-1 gs lgatőb 
jelenteécét 
gyakorlatban 


szetlen 


hg e 
áÁttahetf, Aa 


progr arnh an 


ua 


mea külünbözékre 


issza 


39-ez zorban 
ag zZOoKari 
a BOTO., két 


sUSroutirne ú 


a 
magyarosan 
szóból xlIt 
tó Santi ági Ő ta söt 4 a 
j 3 
olyan 


mor djuk e 


kis 


csak röviden 
derül 


m 


KerüÜül 
vÁAltartaitísokkal 


töhhzezür is sneer Aa 


csak(lv más 
sennek 
híiíuható 
RETURN 


td 
áll 


ir 
a1 


ziuhrut 


AZ 
sítíss 


, 
usa 


YI) 


Le 
hagy en say 


Ip úrasítás 


u 


uid 
TURN hillentvűvel! 


6 


ttéhbbszür iz 3a]kKalrmazzuk a 
mindannyiszor ugyanarra 
RETURN "mindig 


ahannan legutóbb 


rztkozbhat 


a 


iz? 


a programot . 


b Biz 


használható a BASIC 
tudtunk 
is 


A GOSUB hallatlanul jól 
PpPragramoakban: tiszta csoda, hogy eddig meg 
lenni nélküle. A Következő napon már olyan programot 
fogunk vizsgálni, amely egy szubrutint többször használ 
fel. Egyúttal pedig választ kapunk egy régőta esedékes 


kérdésre is. 


kele] 


hasz JÖT HAF C 16. A HI-RES GRAFIKUS 


Aki látott már progr amozát a munkahelyén, Az 
megfigyelhette, hogy mindenfelé, amerre a szeme ellát. 
apróbb-nagyobb céÉdulákkal veszi körül magát, s ezekre a 
cédulákra dÖneki bizonyára hasznos, mászok számára 
uiszaont annál rejtélyesebb szövegek, táblázatok, szavak 
vannak felírva. 

Mostanáig talán sikerült elkerülnünk, hogy mi 
is ilyeneket csináljunk magunkrak , de ennek ezennel 
vége. Minden elismerésünk azé, aki a Commodore 16 
rajzolási utasításait mind fejból tudja, de neki is azt 
javasoljuk: készítsen táblázatot. mert eljöhet az Idő, 
amikor épp egy izgalmas függvény felrajzoulásakor nem 
jut eszébe a  megfeleld utasítás, és mire feláll, 

az 


megkeresi a könyvet. majd abban ide vanatkozó 
táblázatot. már el is megy a kedve az egésztől. Ne 
kockáztassunk. Másaljuk át a táblázatokat jól 


áttekinthető formában, és függesszük ki olyan helyen, 
ahal a gép mellett Ülve is jól látjuk. (Vonatkozik ez 
Persze a többi táblázatra is...) 

Mindezt nem azért bocsátottuk eldre, mintha a 
G 1E£-nak valami megjegyezhetetlenül bBótyöluúult 
utasításai volnának grafikai részben. Nem, illetve 


a 
nemcsak erről van szó: ennek a szímítógépnek a grafikai 
utasításkészlete sakkal "harátzszágozabb"!", "mint a 
Commadore 64-É - csak éppen sok van belőlük... 
Eddig iz rajzolgattunk már a képernyőre — - 


robotot, babafejet. ezt-azt. de csak a gép Karakter — 
készletében található grafikus jeleket használtuk. Most 
ennél zckkal finomabb daolagack következnek. 

Tudjuk: a Képernyőn 25 sorban, 40 oszlapban 
soöorakozhatnaKk a jelek. Karakterek. Egy Karakter , ezt 


talán még nem említettük, 88 képpontbAl]l Áll - ezen a 
miniatűr sakktáblán állították össze a gép 


korztruktárei a betűkészletet és a arafikus jeleket. 


1 


Egyz szarzázssal megbtbizunycasadhaturnk 
afelől, hagy eri idgüúd Karakterchelyv o, következéls — 
KéÉppen 64 ezer képpeant áll rendeikezdsünki e a 
képernyőn, hogy rajzealjunk a s 


egítzégükkel. 
vágjunk bele a kézepébe. Gepeljük te az itt 
következű proagrameat: 


38 CIRCLE 1.199,1909,50 


Rövid erogram, szent igaz, és ha lefuttatjuk, rnern is 
történik semmi. Egy kis idő után RERADOYt mond a gép. ds 
kész. 

Most Írjuk elé ezt a sort: 

19 GRAPHICI 
Futtassuk le Így is! Ekkor a Képernyő Üres lesz. És 
valahol a bal cldalomn egy szép, szabályos Kör 
rajzolódik ki, és mikor kész, attál kezdve zemmi sem 
mozdul. Sem a RUN/STOP, szem a többi billentyű nem 
változtat semmit a képernyűn. 

Hogy tovább tudjunk programozni, rnern Kell 
kikapcsolni a aépet: nyomiuKk meg az Fi gombot. aztán a 
8-t, s vegül a RETURNI ! 

A képernydrói eltűnik a kérünk vés mindenféle 
összevissza karaktereket latunk - amiket az elébb 
találomra nyarmnkcdtunk . Az üúütolizó zorbar pedig ött 
látjuk ezt a szöveget: GRAPHICHB. 

Itt 4§4z ideje. hagy vdgre ne sötétben 
tapogatózzunk. Tudnunk o keil. mit csináitunk eddig, mert 
bizonyos eredményt. egy szépen regrajzült Kürt mar is 
tel tudunk mutatni. 

Tehát: ahhoz. hogy a C 18-on fincm tfeibontázú 


arafikát tudjunk készíteni. másik. arafikai üzemmódba 
kell lépnünk. Erre való Aa SRAPHIC FAaArancs , armelv 
onmagábari még nemi érvényes , utána valamilyen 


számjegynek kell állnia. 

Programunkban az 1-es szarmjegyet használtuk. 
amely a FF irrom feltantázú ( angolul higbk reseolutiuanm , 
rövidítve: hi-res) grafikai üzemmódba kapcsol. Ész az 
egész képernyő területét lefealalja grafika céljára. 

A GRAPHIC 2 üzemméd ugyancsak finorn felbontású 
rajzra ad lehetdzéget, de a képernyő alsó öÜt sorát 
megtartja karakter -üűzemmódbar: ott pProgararnlistát 


nél ez 


kérhetünk, új sorokat ÍrhatunKk a programunkba, tehát 
úgy használhatjuk, mint mostanáig az egész kepernyőt. 

A GRAPHIC 3 és GKAFHIC 4 (a muiticoior, azaz 
soKkszínú? Üüzemmóddal ebben a Könyvben nern foglaikozunk 
- dpp elég lesz megmutogatni a felsziret a hi-res 
grafikának. Elmélyedni ebben sem tudunk - a géppei 
kettesben úgyis mindenki vegigprorláigatja a iétező és 
nem létező lehetőségeket. 

Az utolsd (vagy. ha úgy tetszik, áz első) 
GRAPHIC parancs , a GSRAPHIC a uisszakapcsol a 
hagyományos, Karakteres üzemmédb a, tehát az egész 
képernyő ismét programozásra használható, mint eddig. 

AKKar lászuKk, mi a helyzet azzal a Kétsoros 
programmal, amelyet az eldbb bepötvégtünk. 

Azt már tudjuk, hogy a GRAPHIC 1 nélkül nem 
láthatjuk meg a kört, amelvet rajzolunk. Azt is 
kitalálhattuk már, hogy a CIRCLE szó kört jelent. 

Ez mind igaz. ÚUe mi az a sok szám ott a CIRCLE 
után? 

Az első számat, az 1-est javítsuk ki 9-ra. és 
futtassuk le ismét a programot! Azt fogjuk látni, hogy 
a kört szép egyenletes tempoban leradirazza vaiami a 
képernyőről. Ez a valami a 0 számjegy. Ha a CÍRÜULE után 
1-es számjegy áll, akkar a gép a háttértől elütő 
színnel rajzol, ha viszant B áll att; akkor az utasítás 
által meghatározott Képpantokat a háttér színéveé testi 
vissza - tehát "radírocz". 

Ezt könnyű megjegyezni. űzi sem nehezebb, hagy 
az 1-es vagy BO után álld két s2amJjegy a kör 
középpontját jelöli ki - az első vízszintes, a második 
függőleges irányban. A képernyő bal feisd sarkának 
Kaordinatá£i a.5 (nulladik oszlup.-. nuiiaGik sor). 
ennélfoguwua mi a körünk középpontját a ín. osziup 199. 
sorában jelöltük Ki. I 

Az utolsó szam pedig (aki kicsit gündeoikodik, 


már kKitalálhattal:: a Kör sugara, keppontban 
(szaknyelven: pixelben) számolva. 

Eddig tehát megvolnánk - de ez távolrói sem 
minden. Eláruljuk példful, hogy a GRAPHIC parancsot nem 
kell betűrél betűre begépelnünk . mert az szk! billentyű 
egy gombnyomásra Kiírja - ez programozás közben nagy 
könnyebbség. Ugyanez vonatkozik a SCNCLR utazítázra ís 
ez a "Sscreen-clear"?" azaz képernyőtakar ítá angol 
kifejezés rövidítése); . Ezt az F4 bilientvún  taiáljuk 


eber 


meg. ami a SHIFT és az Fi aornb együttes megnyomását 
jelenti. Ha ezt az utasítást beillesztjük a ERr.agr amuriK 
elejére. akkor minden  futtatásnál tiszta képernyőre 
rajzalunk , ellenkező esetben az előző grafika ott marad 
a képernyőn. Ne feledkezzünk meg erről , ha Programot 
Írunk ! 

A kör rajzolásával kapcsalatos az a Kis 
program, amely alább következik. Itt különböző 
körsuúugarakat adhatunk meg a gépnek; a képernyő felsd 
részén kirajzolódik a kör maga (ha ráfér). alul pedig a 
Kör területe válik olvashatóvá. Ha a szóközbillentvűt 
megnyamiuk , újabb kKörsugarat adhatunk meg. 


19 CRRPHIEZ 

za SCMÉLR 

39 IMNFUT "SUGAR" ; 

4R CLIRCÜLEIL1, 196, 188. H 

56 PRINT H$Már 

6A GET A£$:IF A$TZ" "THEM 69 
76 GÜTÜ 28 


Ebben a programban adódik nerni újdonság. A 6B9d-asz sor 
mindjárt két érdekességet is Kínál; az első a GET. Ez a 
szd angolul mindenfélét jelent, többek között azt is, 
hagy megkapr ii vagy megszerezni. Itt épp ebben a 
jelentésében szerepel. 

A GET AZ tehát annyit tesz: szerezd meg az 
A$-t. Az A$ pedig. mivel értéke a Fragr arnb am nincs 
meghatározva, a billentyűzetről érkezik. Ennyiben 
hasonlít a már jól ismert INPUThoz, de egy különbség 
van köztük: a GET nem várja meg. amia  megnyornjuk a 
RETURIN billentyűt, hanem azonnal tavábblépteti a 
Pprogramat. Ebből Következik, hagy a GET utasítással 
csak egyetlen karakterre Cbillentvőűre;, CHER$-r-e , ahogy 
tetszik) utalhatunk. Ebből nern következik ugyan, de ide 
tartazik még egy fantaz tudnivaló: a GET akkar sem vár, 
ha nem nyornunk meg semrnilyer billentvűt. Ahhoz . hogy 
várja meg a billentyúnyomázt, Külön utasítást kell adni 
neki. Hogy ezt hogyan Kell. már benre u ari pr.agar amunk 
69-as sorában: 


69.GET AS$:IF AS$Z:" " THEN 60 


B) 
h 


A két idézőjel között 
a szóköz azt jelenti, 
hogy a program most 


nem fogad el más 
billentyűt, mint a 
szóközt. (Amíg erre 


uár, Könnyen le lehet 
állítani a  RUN/STOP- 
Pal.) Ha nem szóközt 


nyomunk , hanem —- a 
RUN/STOPcan Kívül sz 
bármi mást, rá sern 


hederít a gép. 

Erre az eset- 
re az IF...THEN szer- 
Kezet azt az utasítást 
adja a számítógépnek, 
hogy menjeri a 6090-as 
sorra. CItt elárultunk 
még egy egyszerűsítési 
lehetőséget is: a THEN 
után: a Commodore 
BASICben elmaradhat a 
GOTO.—- a gép Így is 
megérti az utasítást.) 
A pragram engedelmesen megy iz a 6569-as. sor elejére - 
vagyis oda, ahol azt találja; hogy GET A$, satöbbi. Így 
jár a 6909-as sorban körbe-körbe mindaddig, amíg meg nem 
nyomjuk a száközbillentvűt. 

Nézzük tovább a CIRCLE utasításait, mert még 
nincs végük. A rajzolási mód (8 vagy 4 go e a Középpont 
Koordinátái és a sugár mellett adjunk meg a Körnek még 
egy adatot! Mai első pragramunk ilyen volt: 


19 GRAPHICIi 
29 SCNCLR 
30 CIRCLE1.1998.199a.50 


YA Cl 
Írjunk az 59 után veszszável elválasztva még egy számot, 


teljesen találomra - mondjuk azt, hogy 37! 
Ha lefuttatjuk a Programot , egy lapos 
ellipsziz rajzalódik Ki, amelynek középpontja és 


z H Ft w s és L 
uízszintes tengelyének hossza azonos az előzó Körevel, 
36 P 3 
. de a függőleges tengelye 37 pixel. 


ezaz) 


Ha tehát a CIRCLE utasítás után egy ütödik 
számadatot is Írunk, akkor egy eilipsziszst határozunk 
meg: az utolsó Két szám közül az egyik a vízszintes, a 
másik a függőleges tengely hossza. 

Ha most még két számat hozzáírunk a 3898-as 
sorunkhoz, akkor egy Ív kezdő és végpontját határozzuk 
meg, tehát nem a teljes görbe rajzolódik majd Ki, hanem 
annak csak egy szakasza. 

Ezután még mindig elfogad egy adatot a CIRCLE 
utasítás: ennek hatására a gép (hiába jelent az CIRCLE 
Kört angolul) egy sokszöget rajzol Ki. 

Nézzük meg akkor mozt már rendszerezve, hogy 
milyen a CIRCLE utasítás feiépítéze! 


UTASÍTÁS HATÁSA 
CIRCLE1.közp.oszlop,Közp.sor sugár kör 
CIRCLE1.KPpP.O,KPpP.S.szél mag ellipszis 
CIRCLE15-KP.Oo.KP.5S.sz,m kezd, vég Ér 
CIRCLE1.KP.O,KP.S-SZ.Mr, szög elford.ellipszis 
CIRCLE1.KP.G.KP.5S5.SZ-.M, ,, szög sükszüg 


Figyelem! Vegyük észre, hogy ezekben az utasításokban, 
ha valamelyik adatnak nem adunk külön számértéket, 
akkor a helyét egy vesszável kell jelölnünk! (Az utolzá 
példában, a sokszüg  ezetében három adat helyén áll 
vesszűld 

A "szög" a két utalsó példában nem ugyanazt 
jelenti: az elsdben az elfordítás szügét, a másodikban 
azt a szöget, amelyet a középpontbáól a sokszüg két 
szomszédos csúcsához húzott sugár egymással bezár. 

Ez máris egy olyan tábiaáazat, amelyet drdemes a 
falra kitenni. hogy ne kelljen se bemagolni.,. se 
keresgélni, ha szükség van rá. 

So0K más utasítás is van még: a legfontosabb 
1 


ezek közül a DRAW. 

UTASÍTÁS HATÁSA 
ORAW szín, oszlop, sor, pont 
DRAW szín, oszlop, szor TO oszlop, ser egyenes 
DRAW szín TŰ osziop. sor uonal 


a legutóbbi pontból 


án BEZN 


Hagyar működik ez a DRHÖW? 

A sző jelentése ér úzni" , "aZ NI" a Itt 

például puntot  tuuuuK rajzolni vagy vunalat tudunk 
húzni a zegítségevel. 

ORAWL1,O.O egy pontot tesz 1 a képernyő bal 

felső sarkába. Az 1-es azt jelenti, hogy rajzol énem 

), a két nulla pedig a bal felsdf sarok két 


DRRARWO.f. kitörli azt a pontot, amelyet az 
előbb rajzoltunk oda. 

ORAW1,A.9 TO 320.2008 a Képernyő egyik átlóját 
húzza meg, DRAW 9.328 TO 29.89 pedig a másikat - És így 
tovább. 

A BUX utasítás egy téglalap alakú területet 
jelül ki a képernyűn; két á£tellenez sarkát kell 
Koordinátaként megjelölni; a PAINT utasítás egy 
körülhatárolt területet színez át; használatakor egy e 
területen belül esd pcant koordinátáit adjuk meg neki. 

A CHAR utasítás a képernyő meghatározott 
helyére feliratot tesz; a helvét és a szöveget Külön 
adhatjuk meg. 

Mindezeket az utasításokat és a hozzájuk 
tartazó adatokat táblázatban a KÖryV végén 
megtalálhatjuk. Az itt Következd programban, amely egy 
tetszetős léghajó képét rajzolja fel, haaználat közben 
is láthatók. A programot alaposan végigolvasva sokat 
megtudhatunk a Commodare 16-ról, a hi-res arafikusról. 

A tütbit úgyis maga a gép fogja elmondani, 
ahagyan át- meg átalakítjuk a programot, és főként — 
amikar a saját programjainkat TEJ s sa 


17 GgeHFHICi.i 

zú FOK lsA 10 6 i 

25 CIRCLE1.1557.68.169.60-IKS.:..15 
39 NET I 

35 FÚK IÍsi TŰ 29 STEP £ 

ád CIRCLE1.153.68.168-IH3.68. .. 25.71 
45 NEAT I 

58 FOK IR TO 25 

55 DRAW1i. 48.28 TŰ B.Ir2ZŐ 

56 UDRAW1.493.199 TŰ 4.198-I 

57 URHUWi án 64 TŰ 8.5394t1/2 

ég MesT I 

7ú BúAi.159.115.229.139..1 


er ii 


75 FOR I5sf TO 2 

S DRAM1.189.139 TO 188-I,.115 
Sz DRAW1.229.139 TŰ 2294I.115 
85 MEXT I 

98 FOR I5i1982 TO 222 STEF 12 

52 BOAO.I.118.IH18. 122. .1 

95 MEAT-I 

ig9g CHAR1.17.,7. "COMMODORE 16",1 


KövetkezzéKk egy kis szúátár a fejezetben szerepelt, de 
Kellően meg nemn magyarázott angol (vagy BASIC sa 
szavakhoz: 

CIRCLE (ejtsd: szörk1l) - Kör 

GRAPHIC (Ejtsd: graefik) - grafika 

SCNCLR (szkrí(n-KIÍr) 

DRAN (drá) 

BOX (boksz) z- dobcz (ökülvívást iz jelent, de annak a 
programozástan nincs nagy szerepe) 

PAINT í(pÉint) - festék, festés 

(CHAR a character. azaz karakter szó rűvidítéze 


KÉS a HERE ÓRA INDUL ! 


EmlítettüKk, hogy némelyik változónév foglalt, nem 
használható. Azt azonban nem mondtuk meg, hogy mi célra 
foglaltak. kettőről most mindjárt Ki fog derülni. 


19 TI$z"99080989a" 

20 FRINTTI$ 

38 PRINT"TTT":REM CRSR FEL KETSZER 
49 GÜTOZB 


Mielőtt elindítanánk ezt a programot, áruljuk el, mi 
ez a TI$. 
TEK ar tár MY a d NE sea 
A számitógép belsejében egy ora működik, 
amely. ha másként nem "rendelkezünk, kérésre a gép 
c "apcsolásától mért időt írja Ki. a képernyőre. 
Próbáljuk Ki ezt az őrát! Gépeljük bes: 


? TIS 


és RETURN. Most nem tudjuk pontosan megmondani, mit ír 
Ki a gép , mert ez attól függ, hogy midta van 
bekapcsolva. Mindenesetre egy hatjegyú számot látunk a 
Képernyűn, amelyből az elsd kettő az drakat, a masodik 
kettő a perceket,a harmadik kettf a másodperceket 
jelenti. 

Ennek az dr:ának a mindenkori állását 
írathatjuk ki-a képernyőre a TI ds a: TI$ változókkal. A 
TI$8 a digitális Kkardrák -által ris mutatott rendszer 
szerint, a TI (ez, a nevéből is kiderül, valds változó) 
hatvarad mázodpercenként. Próbáljuk Ki ezt is! 


9 "FA 
Éz RFTURIN. EKKOr egy négy-öt-hatjegyű számot Ír Ki 


a 
gép; u gk : Pillanatnyi értéke. Ha felmegyünk a 
cursorral a ? TI sorra, És ismét megnyomjuka RETURNt, a 


mű, sz 


számot tartalmazó sorhan új szám írádik ki a régi 
helyére, ds ez annyival lesz magacabb, ahány hatvanad 
másodperc eltelt közhen. 

A afpnek ez a tulajdonsága rermek sztopperdr a- 
orJaram megírására ad lehetőséget. Kezdjük az alappal. 

Ha bekapcsoljuk a gépet, betKkitjük a 
stapoardrás programot, és elindítjuk, eralatt jó néhány 
másadrnerc eltelik. Mírpadig a staopparrírAt nullára] kell 
indítani, különben nincs ertelme. 

Fvr e tarmészatasen gaandnitak A aép 
Kanstruktűrei 15 zZiSs4  praararmsorunk legyen A TTIt 
értékének nullára állítása. Ez igen egyszerű: 


19 TIS-"gO00CEB" 


Mnat még semmi nari törtdnt, hiszen csak egy prograrasort 
írtunk; az dra által mutatott idd csak akkor áll majd 
nullára, ha a programat elindítjuk. 

Maszt íÍrassuK ki a TI mindenkori értékét. 
Tudjuk, hogy a TI hatvanadmázsodpercekben számrol, a TI$ 
pedig drában, percben. másodpercben. Az utdbbi Közelebb 
Áll hozzánk, ezért hazználjuk azt. 


a 2? TI 


Itt annak az utasítísnak kell következnie, amelyik a 
$ , ütt e [dá 7 PERE 1 (4 

cursort visszakuldi az előözű Kepernyüsorra, hogy az ora 

egyhelyben Álljon a képernyőn, ne egymás alá íÍrodjanak 

a különböző ertékeK. Ehhez viszza Kell 

cursort. 


léptetni a 


áz ő : dát 
És vudaül vissza Kell fardulni a eragar ara elejere. ja tali ÉS 7 


következő ertékeédr 


Készen iz vagyunk. A programat elindíthatjuk, a stopper 


a RIIN szó alatti sorhan működésbe lép. éz  "annanar tól 
szAÁpen szírrei fölfelé. Ha elérte a "űanamszaromne Értewet, 
reri tAa7aDe e Következik, hanern "naagiagi, tehát a 


4 ő 
percekhez hczzáad egyet, a mázadperceket nulláról ujra 
kezdi. 


Egy valamirevaló stopperéra persze leaalább 
tizedmásodperceket mér; amihez már a TI$ nem 
alkalmaz hiszen az másodpercenként lép tovább. Elf kell 
vennünk a TI változót, és meg kell szel ídítenünk. 

Ha a 1. hatvanadmásodperceket mér. akkor ebből 
másodperceket úgy Kapunk , ha elosztjuk a minderkori 
értékét hatuvannal. Írjuk ít programunk 90-as sorát íÍay: 


2D PRINT TI/EXO 


Az Íjv elindított program egy irgalmatlanul brszzú 


szímot ír ki, vagy Kilenc tizedesjegavel, És A 
tizedesponttól balra egyesével szímel felfelé. A 
tizedesjegyvekbőlil csak az elsdre van ezlfksdglink, a 
többit elhaavhatjuk, hiszen úavcem tudjuk s zenmyel 


Követni őket, meg aztán úgyis csak hármascak meg hatasok 
vannak benne (hiszen hat  többszöröősével osztottunk). 


Hagyjuk hát el dket. Emlékszünk, az RND fűagvénnyel 
Kapcsolatban találkaztunk az INT kifejezéssel, amely 
törtszámokból leválasztotta a tizedes jegyeket. 


Használjuk fel most iz ezt. 
29 PRINT INT(TI/502 


Még mindig nern jutottunk tovább, mint ahonnan 
elindultunk: most a program körülbelül úgy működik, 
ahogyan a TI$ változóval működő programunk működött, 
azzal a hátrannyal, hogy a 6898-as érték után €1-et ír 
Ká tehít csak mázadpercben számol. percben nem. 
PfíadáAsul még mindig nem látjuk sehol a tized- 
másadrercaket. 

Na, A tiradmisoadpercek nondját moszt már 
könnyen megoldjuk. EjJy tizedezjegyet Ki kell mentenünk 
az INT hatása alól. Ezt úgy csináljuk, hogy a TI 
értékét Két részletben osztjuk hatvannal: előbb hattal, 
aztán tízzel, da az INT a tízzel való osztásra nem 
vonatkozik, ezt 37 egy tizedesjegyet engedélyezni 
fcgja. Ez Könnyebb, mint hinnádnka csak egy zárójelet 
kell Ügyesen beiktatnunk: 


zó S8R1INT CIMTOTI/5B22710 


, . 8 / 
A progr meg mindig czak másodpercben számol, a 
percekról nz.n váasz tudomást, de a tizedeket már kiírja. 


ni 


Egy perc alatti időket már tudunk mérni vele. 

Ez persze még mindig csak része a sikernek. 
Most azt Kell elérnünk, hogy a gép kiírja a percek 
értékét, ehhez minden hatvanadik másodpercben 
hozzáadjon egyet, a másodperceket pedig Állítsa 
nullára. 

Hogy áttekinthetőbb legyen a uáltozók 
rendszere, a másodperceket nevezzük el MPP-nek , a 
perceket P-nek! 

Írjuk újra a programot ífÍgy: 


0 PRINTCHR$(1479:CLR:PRINT "§ PERC"; 
19 TI$£z"B09999" 

29 MPs(INT(TI/652718 

38 REM IDE MAJD IRUNK MEG VALAMIT 
49 PRINT. TAB( 192 MP, "MASODPERC" 


59 PRINTVTTT" 

63 GOTN 24 
A nullás sorban látható új utasítás, a CLR (az angol 
CLEAR, ejtsd: KLÍr; magyarul: "tiszta" szó rövidítése) 
az összes változó ertékét nullára Állítja - ezt a 


biztonság kedvdért tettük oda. mert már jó néhányszor 
átállítgattuk TI$ értékét, €s bevezetünk új változókat 
is. Jobb. ha amikor futtatni kezdjük a Programot, a 
változóink értéke mind 0. 

Az Így lefuttatott program (Üres képernyővel 
kezd. Kiírja: 0 PERC, utána számiálgatja az egész -és 
tizedmásodperceket. ezektől jobbra pedig még azt i 
Kiírja: MÁSODPERC. 


s 


Hogyan aldható meg . hogy minderi hatvanadik 
másodpercben a PERC szó előtt 4116 számjegy eggyel 
emelkedjék? Sejthető, hagy AZ IF...THEN szerkezetet 
kell használnunk, És ez igaz i5S a Írjunk be -egy Új 3539-as 


sort! 
38 IF MFsá THEN 199 
És egészítsük ki a programot két új sorral a végén: 


109 PsP-1 
208 PRINTP;:GOTO 18 


Hát itt mit csináltunk? A P-Pt1 egy eddia nem haszníált 


változó értékét emeli meg eggyel. § CLR. mint mondtuk. 
mindent nullára állít, tehát ha új változót veszünk 
fel. az is 9-rűl kezd. ha előtte más értéket nem adunk 
neki. Így amikor a programban az MP értéke eldször éri 
el, a 80-at, és a GOTO leküldi a programot Aa 1998-as 
sorra, ehhez a 9-hoz ad hozzá 1-et a gép, és a képernyő 
bal sarkában álld 8 PERC felirat első Karakterét 
kicseréli 1-re. Utána visszaugratja a programot arra Aa 
sorra, ahol a TI$ értékét nulláztuk le, ennélfogva a 
másodpercek  68-nal nern nőnek tovább, hanem újra 
indulnak 9-ról. 

kész a stepperdránk. Kivihetjuk kazettára vagy 
lemezre, és csinálhatunk belőle olyan szubrutint is, 
amely egy prograrn futása Közben a játékos reakcididejét 
méri. Egy ilyen felhasználását látjuk majd a hetedik 
nap programjai között. 


Utalzá munKkanapunkon veégigkövettük tehát, hogyan 
szűletik meg egy meghatározott célú BASIC program, 
milven gondolatmenettel építjük fel. hogy azt a célt 
szalgálja. amit szántunk neki. Utolsd gyakorlatként 
írjuk rnajd át úgy, hogy ha Aa percek száma eléri a 
69-at, akkar órákat is számoljon! Az eddigiek 
ismeretében ez nem lesz nehéz. 


A hátralevő egy nap arra szolgál, hogy néhány 
mintaprogram segítségével átismételjük, amit eddig 
megismertünk a Commodore 16 mikroszámítdágép 
képességeiből. 

A gép természetesen sokKal többet tud, mint 
amennyit egy ilyen rövid Kis könyvből meg lehet 
tanulni, de mostantái ha újságban. könyvben C 18-ra Írt 
BASIC programlistát látunk, nagy részét meg fogjuk 
érteni, ds ez az első lépés ahhoz, hogy mind ragyobb 
mér:-tékben tudjuk a saját szolgálatunkba állítani a 
gépet. 


szél 


a BIE EGY KIS RÁnDÁS 


Az utolsó napon, ami e€ könyvből hátravan, vegyünk még 
néhány programot. Az első egy  továbbfejlesztett  vál- 
tezata a Korábban már megismert csillagos programnak. A 
csillagok ezúttal már. sokszínűek; a Képernyő olykor 
tüűüzijátékhoz hasonlít. 

Ez a program nem az Összes színt használja, 
ezért akinek Kedve wan, áÁtalakíthatja úgy, hogy a 
Commodore 16-nak mind a 18 színét tartalmazza az összes 
árnyalattal együtt! 


 KEM SZINES CSILLAGÜK 

ig DIR A€157 

ző COLORá4, 1: LÜLORB, 1 

39 PRINT" 

ága Arússz AL iiszá: Bizsszá: Algzszi 
sk Hrásziza:HéiSisidád 

63 FOR I5sE TŰ 13:A(Iszit143:NEAT I 
7 Af1l4isisgm:At1555159 

99 FsIMTE359£ENÜCL 191 

28 UsIMTÉZZERMNDÉ 134 

109 SzIMTE1384RMDÉ132 

119 FOR YO TŐ ú:PRINT:MERAT Yv 

í2z8 PRINT TABA(POLHESZRAÁS2 4 He 

128 FOR Mzsi TŰ (10£RMDL173:MEXAT NM 
140 FPRIMT"Aa":KEM HOME 

150 GÜTŐ 4g 


A másadik progr arn egy rövid ellenőrzés, mennyire 
ismer: jük a billentvűzetet. a Karakterek 
elhelyezkedézét. Ha a pRrogramlizstát megfigyeljük, 


Kiderül, hogy a játék itt időre megy! 


id 
ij 


83 REM BILLEMTYIJZET-TESZT 

3 PRINT"ÁT" 

19 FPRINT"MEMNyYI IDD ALATT TALALOD HEG" 

20 FPRINT"A KARREKTEREKET?" 

30 FRINT"HA MEGJELEMIK EGY JEL: A LEHETO" 

46 FRINT"LEGGTORSABBAN CSALD ELŐ MEG EGYSZERI" 
30 PRINT"HR MEGUMTAD, NYOMD MEG A RETURNT!" 
68 PRIHT"MOSZA S sa" 

79 KARZINT(SZERND( 831433 

89 FRIMHTTAEKSILHERSOKHR? , 

ga TI$z"OROBAG" 

199 GET A$:IF A$z"" THEM GOTD 188 

119 IF ASC(A$osis THEN EMD 

129 IF ASZCLHRECKARI THEM GOTŐ 198 

139 MAzYAL(TI$I 

149 IF MicSa THEM PRIMTMA" MASODFERÉ":GOTŰ 7 
158 P/zMA 189 : MAAzMA Fr 198 

1éB PRIMTPA" FERC"MAAZ" MASODFERÉÜ" 

179 GOTO 78 


Az itt következő programmal ábécé-zorrendbe 
rertlezhetünk bármilyen névsort, az utána következő 
másik változat pedig a betűrendbe szedett neveket ki is 
nyomtatja. 


8 REM ABECE-SORREMD 

19 IMFUT"R HEVEK SZAHARA ";H 

29 HIM AS(MH1) 

38 FOR IsA TŰ M-1:IMPUT HA£árI9:MEXT I 
48 FOR ksü TŰ M-1 

39 FÜR Lskt1 TŰ HM 

6 IF AZ(L:SzAS$TK? THEM 188 

7a S$zH$(LI 

S8 Há(LIsA$ik, 

99 A$(Koiss$ 

1988 HEAT L 

118 ME/T K 

128 PRIMT:PRIMHT"BETUREHOBEH: " : PRIHT 
120 FOR I-8 TŰ M:FRIMHTRÉ(IS:MNEAT I 


fd 
mM 


A REM ALFABETIKLS REMDEZES FRIMHTERRE 
5 FRIMHT"T" 

18 IMPUT"H NEVEK SZAMA ";M 

z9 DIM AZ(Mr12 

34 rÚR Iz8 TO M-i:INPUT A$£(I2:MEAT I 
48 FÜR ksü TŰ M-i 

538 FOR Lskt1 TŰ M 

68 IF AZ(LI325A$(K) THEM 199 

ra s$zHA$(L)? 

98 HE(LIS5A$(K? 

99 H$(Kkiz5$ 

10 MHEXT L 

118 NEXT K 

115 0FPEN1,4:CMD1 

128 PRIMT:PRIMHT"BETUREMHDBEN: " : PRINT 
1538 FOR IA TŰ M:PRIMT H$(I9:MNEXT I 
148 PRIMT$1:CLŐSE1 


Harrnadik progr-amurkban mi adhatunk fel rejtvényt a 
számítógépnek. Gondolunk egy számot 1 és 19 között, És 
a gép több kérdés után kitalálja. Ez a program eldggé 
honyolult és hosszú, vigyázzunk a begépelésénél! Ha 
rt...  slrmesen végigolvassuk, majdnem mindent megtalálunk 
benne. amiről ebben a Kis könyvben szó esett. Ezért 
utolsd izmétlíid feladatnak is megfelel. 


a REM 1 ES 198 KÖZÖTT 

3 PRIMT"G" 

19 FOR Iz1i1 TO 18:H(f(Is5sI:NEXT I 

za FRINT:FRIHMHT 

39 FRIHT"GOMHDÜLJ EGY SZAMRA 1 ES 18 KÖZÖTT!" 
48 INFUT"PRIMSZAM?7 (I/N2";K$ j 

5 IF ASC(Ck$is73 THEM GOTOŰ 78 

68 Hf1lszg:A(2ISA: A(Z) sa: A(S aza: Ar7sza:GÖTŰ 58 
7a Hr4dszB: A(6I-A: Ar 5 izá : AL 9) se: AC 1915á 

sg IHFRFUT"3-MEL HAGYOBE? €I/M2";KÉ 

98 IF ASZL(Kk$.z73 THEN 114 

199 FOR I-6 TŰ 19:ARfI)s3:HEXT I:GOTO 128 

1í9 FÜR IÍszi TO 5:AfI558:MEXT I 

iz GOSUB 69M 

138 IF Kkzil THEM GÜTŐ ií9 

iág ISPUTVPAROS SZAT? €I/M2";K$ 

128 IF mzlékészőg THEM GÜTŰ 17d 

168 FOK 1l:8 TŰ 18 STEF 2:RfI358:MEXT I:GOTD 1588 


ma 


179 
189 
190 
191 
152 
1593 
194 
155 
196 
197 
zad 
218 
zek 
23 
zá 
za 
zel 
sad 
És 1 fd 
szü 
éa 
649 
edelúj 
7aa 


FOR Isi TŰ 2 STEF 2:Aéilszá:HEAT 1 
HOSÜB 699 

IF kzi THEN GOT 18 

INPUT"3-MAL OSZTHATÓ? £I/M2" KE 
IF ASCéKtiz73 THEM GOTŰ 154 
Aégizg : Atészú: Ara sa : GÜTŐ 1596 

AC isa: Rizs: Arászá: Biz isá : Arvazű 
Aeassü: Heim iszű 

GOSÜEB 6M9 

IF Ksi THEM GÜTŰD ig 

IHPUT"S7-TEL ÖSZTHATO? €1/M2";E$ 
IF ASC(Káoizzg THEM GOTŐ 23 
A(Z3izg: AL 1859: GOTÜ 238 


FOR Isi TŰ 4:A-(Issü:MEAT I 

FOR Is6 TŰ 93:HÁIssf:MEXAT I 

SOSUB 688 

GÜTŐ 19 

Kssídj 

FOR Isi TO 19:IF A-Issfú THEM GOTŰ 678 


kekt1:BsH(I. 

HEAT I 

IF K-z1i THEM 7Af 

PRINT"A KERESETT SZAM s"B 
RETURM 


hl E. gl 
TABLAZARTOK 


HATÁS 


FEHÉR 


SHIFTt1C- 
K IKAPCS. 
SHIFTtU- 
BEKAPC5. 


RETURN 
KKCS 
F-xA. 


CRSR LE 
RVS BE 


HOME 
EL 


ESCAPE 
PIROS 
CRSR 
JOBB 
ZÖLD 
KÉK 
szóKÖZ 


CHRE 


OU YME A 


00 


HATÁS 


an DD AMDNDUROMENLGAN :" 


vo. 


sz 


a) 


mtmOanNűmD ra 


CHR:H 


stáb, KEZŐ 


43 


HATÁS 


! 
ELZLCIAÜDDTOZZTÁAULHIO 


2 


tanum nnek 


l-t 


I 


CHR:H 


me 


aga aga aaz 


V-A MÜ 4x 


VWGDÍN 0) 0 0 0) 0 0 0 0) 0 0 A 
MED ÜJDNDÜRMEG 


ún 


0 
m 


1 


- 


[1] 
0 


339 
1909 
181 
192 
105 
194 
185 
196 
197 
108 


HATÁS CHRE 
is 19393 
jú 118 
Fr 28 bt 
sp 112 
b) 113 
- 114 
e 115 
jj i16 
fúj 117 
het 118 
- 113 
aa 129 
[) 171 
4 122 
Hú 123 
E 1234 
I 125 
kij 126 
"gy lez 
128 
MHARANMCS 1E9g 
VILL.BE 1308 
TE .KI 131 
152 
fi 133 
$3 134 
f$5 1 fee ésa) 
$f7 136 
FE 137 
CHERE$ 192-223 ugyana 
CHRE 224-254 ugyana 
CHER 255 ugyana 
RÖVIDÍTÉSEK A TÁBLÁ 
KEKCS - Karakter 
F z felsdr. A 
KIKHAFC5S. — Kikapczu 
VILL.BE z villagász 
ret. .kT —- wiilójsás 


HATÁS CHRE 
f4 138 
£6 139 
HELP 140 
SHIFT/ 

RETURN 141 
KKCS 
A-3F 14e 
143 
FEKETE 144 
CRSR FEL 145 
RVS KI 146 
CLEAR 147 
INST 148 
BARNA 149 
SÁRG.ZÓLD 150 
RÓZSASZÍN 151 
KÉKESZÖLD 152 
VIL. KÉK 153 
SÖTÉTKÉK 154 
VILL. ZÖLD 155 
BE ÍBOR 156 
CRSR BAL 57 
SÁRGA 158 
CIANKÉK 159 
SZÓKÖZ 168 
u 161 
kézi 162 
— 163 

z. mint CHR3 96-127 

z, mint CHREX 1£9-1399 

z. mint CHRE 1íg6 

ZATBANI 

készlet-csere 

z alzdé 
láz; BEKAPCS. 
bekapcsolása 
kikapcsolása 


HATÁS 


CHRE 


164 
1865 
166 
167 
163 
16959 
170 
171 
172 
173 
174 
175 
17656 
177 
178 
1739 
189 
181 
182 
183 
194 
185 
186 
187 
188 
1893 
198 
191 


SZ ÍNKEZELÉS 


KÉPERNYŰ- 
BILLENTYŰ SZÍN KÓD JEL 
ETRL 4 1 FEKETE 1 ug 
CTRL 412 FEHÉR e ma 
CTRL 4 3 PIROS 3 E 
CTRL: 4 4 CIAÁNKÉK 4 ha. 
CTRL 4.5 B ÍBOR 5 B) 
CTRL 46 ZÖLD 6 ka 
CTRL 47 KÉK új a 
CTRL 48 SÁRGA 8 hr) 
Cs 4 1 NARANCS 3 eg 
Cs 42 BARNA 19 " 
Cs 43 SÁRGÁSZÖLD 11 wa 
Cz 4 4 RÓZSASZÍN 12 mi 
Cz £ 5 KÉKESZÖLD ig" s) 
Cz 46 VILÁGOSKÉK 14 [1 
Cz 47 SÖTÉTKÉK 15 6) 
C-z 18 VILÁGOSZÖLD 16 gs 


veltbe att 


A HÁTTÉRSZÍN MEGHATÁROZÁSA 
COLOR 9.SZÍNKÓD. AÁRNYALATKÓD 


A KERETSZÍN MEGHATÁROZÁSA 
COLOR 4,SZÍNKÓD, ÁRNYALATKÓD 


A CURSOR SZÍNÉNEK MEGHATÁROZÁSA PROGRANBAN 
COLOR 1.,SZÍNKÓD, ÁRNYALATKÓD 


CURSORMOZGATÁS JELEI IDÉZŐJELEN BELÜL 


BILLENTYŰ JEL 


CLEAR-/HOME 


SHIFT 4 CLEAR/HOME 


CRSR LE 


CRSR FEL 


B OO B C 6 


CRSR JOBBRA 


CRSEK BALRA 183 


mél a 


szám 


4) 


GRAFIKAI MÓDOK 


Finum felbontású 


Sb 


Fircrm felbontású 


DRALJ 


UTASÍTÁS HATÁSA 


DRAW szín. aszlop, zer, pont 
DRAN szín. oszlop. sor. TÖ oszlop, sor egyenes 
DRAW szín TO aszlop, sor vonal 


a legutóbbi pontbál 
CIRCLE 


uTasÍTÁS HATÁSA 


CIRCLE1.köüözp.öcszlop.kEizp.sor ,sugár Kör: 
Clm ""71.kp.OG,Kp.:z.sSsZÉl .rnag. ellipszis 
CIROLEL KpEGOLKESE ez ani kezd UÉd ív 
CIRELE1iL Ep cé kp. s éz Miaz; Szög elford.ellipszis 
CIRCLE1L.Kp.O,KP.Z,SZ Mr rr-rSZÖ3 sokszüg 


UTASÍTÁS : HATÁSA 


BOSS szín. .cszl.1losoril,cszl.2, ,sor2 Kör venal 
BUS szín .o1i1,s1.62.s2.szüg Elfordítva 
BOX szín 01. .51.02/52.KiÍtöűlt Tömör felület 


BOX szín ri.vc1i.z1.o2, zo. .sztg kitült Elfordítva 


TARTALOM 


1. NAP: ASC ÉS CHRS, n KÉT IKERTESTVÉR 
2. NAP: "OLVASD AZ ADATOKAT!" 

3. NAP: FELTÉTELEK, FELTÉTELEK... 

4. NAP: MENJ A..., DE TÉRJ IS VISSZA! 
5. NAP: C 16. A HI-RES GRAFIKUS 

6. NAP: ÓRA INDUL! 

7." NAP: EGY KIS RÁADÁS 


TÁBLÁZATOK 


4) 
da) 


ELŐKÉSZÜLETBEN 


Hetedhét Sinclair Spectrurn 


JEGYZETEK 


Sokan szeretnenek olyan tán 
Könyvet. amelyet éjjelre a 


párnájuk alá tehetnének, és a 
Könyüben foglalt tudás 
éjszaká alattsa fejükbe 
uárogna át. 


Ilven Könyvet még 
írtak; a miénk sern 
cápát 
működik. 


6 £ rmajdnern. 


erzői Közül az egyik 
programozó, a másik: 
viszont alig néhány hónappal 
A könyv megírása előtt érin- 
tett öször komputert. A 
szakember a Kezdő 
tacsodálkózása 1; egyszerre 
érvényesül a A. kötet 
lapiain. 


AKiben elevenen él a 
Kívánczsiság, de egy kissé még 
idegenkedik a számítágéptől, 
annak ez a Könyv bizonyíték: 
a Komputer nemcsak , 
közel engedi magához 
avatatlant, hanem valósággal 
becsalógatja saját 


